  

@keyb_wait:
in AL, 64h	;   
test AL, 010b	;   
jnz @keyb_wait	;  
mov AL, 0F2h	;  -
out 60h, AL	;    
call @data_wait
in AL, 60h	;  
cmp AL, 0FAh	;  
jne ErrorHnd	;  
call @data_wait
in AL, 60h	;  
cmp AL, 0ABh	;   
jne ErrorHnd	;  
call @data_wait
in AL, 60h	;  
cmp AL, 83h	;   
jne ErrorHnd	;  
ret
@data_wait:
in AL, 64h	;   
test AL, 01b	;   
jnz @data_wait	;  
ret